; Fix recent obsoletion warning in cl.el.

diff --git a/lisp/obsolete/cl.el b/lisp/obsolete/cl.el
index f91cfaa34c390e55f507ba8fda28f89f55e0069f..09f9ab7b7f297729ed6c767014f72d676f97dc08 100644 (file)
--- a/lisp/obsolete/cl.el
+++ b/lisp/obsolete/cl.el
@@ -438,7 +438,7 @@ definitions, or lack thereof).
              (let ((func `(cl-function
                            (lambda ,(cadr x)
                              (cl-block ,(car x) ,@(cddr x))))))
-               (when (cl--compiling-file)
+               (when (macroexp-compiling-p)
                  ;; Bug#411.  It would be nice to fix this.
                  (and (get (car x) 'byte-compile)
                       (error "Byte-compiling a redefinition of `%s' \